home *** CD-ROM | disk | FTP | other *** search
/ Game On / Game_On_91-05_1991_-_de_Side_B.d64 / cesar! (.txt) next >
Commodore BASIC  |  2023-02-26  |  4KB  |  147 lines
  1. 1 rem  ***      c e s a r       ***
  2. 2 rem  ***  edmund wisniewski   ***
  3. 3 poke56,40:poke657,128:poke808,225
  4. 4 ifa=0thena=1:load"c.gr",8,1
  5. 5 poke53281,8:poke53280,0
  6. 6 data120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240,133
  7. 7 data89,169,224,133,91,32,191,163,169,55,133,1,88,96
  8. 8 fori=832to865:readq:pokei,q:next:sys832:n$="edmund wisniewski"
  9. 9 poke56576,peek(56576)and252:poke53272,8:poke648,192:sys13660
  10. 10 print"[147][158]               c e s a r [158]               "
  11. 11 c1=23:c2=7:gosub107:print"1990 by   "n$
  12. 12 ifa=1thena=2:load"c.sp",8,1
  13. 13 v=53248:sx=830:op=19989:ot=19990:si=54272
  14. 14 a=rnd(-ti):print"[147]":sys13393
  15. 15 print"[147][144]       [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][158]"
  16. 16 fori1=1to4
  17. 17 fori2=1to2
  18. 18 print"[144]      [167][158]   [146]      [146]      [146]      [146]   [144][165]"
  19. 19 next
  20. 20 fori2=1to2
  21. 21 print"[144]      [167][158]      [146]      [146]      [146]      [146][144][165]"
  22. 22 next
  23. 23 next
  24. 24 print"[144]       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  25. 25 print"        a  b  c  d  e  f  g  h "
  26. 26 c1=21:c2=0:gosub107:print"[158][213][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][201]";
  27. 27 c1=22:gosub107:print"[221]  zug:  [221]  best: [221] tiefe: [221]  eingabe: [221]";
  28. 28 c1=23:gosub107:print"[221]        [221]        [221]        [221]           [221]";
  29. 29 c1=24:gosub107:print"[202][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192]"
  30. 30 poke50151,75:poke56295,7
  31. 31 c1=1:fort=8to1step-1:c1=c1+2:c2=3:gosub107:printt:next:print"[158]"
  32. 32 poke50168,17:poke50169,18:poke50170,19:poke50171,20:poke50172,21
  33. 33 pokev+28,0:pokev+16,255:pokev+21,255
  34. 34 fort=0to4:pokev+39+t,2:next
  35. 35 pokev+0,45:pokev+2,45:pokev+4,45:pokev+6,45:pokev+8,45
  36. 36 pokev+1,65:pokev+3,95:pokev+5,125:pokev+7,155:pokev+9,185
  37. 37 poke20020,0:poke20039,1:poke19994,0:poke20040,3
  38. 38 fort=0to40:poke19950+t,0:next:pokeot,0
  39. 39 sys12528:print"[146]":goto41
  40. 40 poke20020,peek(20020)+2
  41. 41 c1=23:c2=31:gosub107:print"[146]..-.. [157][157][157][157][157][157]";
  42. 42 f1=1:gosub76:f1=0
  43. 43 ifx1$="l"then72
  44. 44 ifx1$="m"then60
  45. 45 ifx1$="n"then95
  46. 46 ifx1$=""then41
  47. 47 ifx1$="x"then108
  48. 48 c2=32:gosub81:if x2$="" then41
  49. 49 v=val(x2$)*10+10+asc(x1$)-64:poke19997,v
  50. 50 c2=33:gosub107:print"-.[157]";
  51. 51 c2=34:gosub76:if x1$="" then41
  52. 52 c2=35:gosub81:ifx2$="" then41
  53. 53 v=val(x2$)*10+10+asc(x1$)-64:poke19998,v
  54. 54 sys13158
  55. 55 ifpeek(12011)<>0thengosub87:goto41
  56. 56 gosub96
  57. 57 ifpeek(19999)=52thengosub99
  58. 58 print"[158]";:sys12050:print"[146]";
  59. 59 poke20039,(1-peek(20039))
  60. 60 sys15100:gosub143:ax=peek(20047)
  61. 61 ifpeek(op)=1then71
  62. 62 ifpeek(19994)=1 then90
  63. 63 ifax>=254orax<=1then91
  64. 64 ifax=253orax=2thenprint"[158]":sys12050:print"":goto91
  65. 65 ifpeek(20039)=0then69
  66. 66 ifax<16thengosub88
  67. 67 ifax>246thenx=254/2-(ax/2)+.5:gosub86
  68. 68 goto71
  69. 69 ifax<16thenx=ax/2:gosub86:goto71
  70. 70 ifax>246thengosub88
  71. 71 print"[158]";:sys12050:print"";:poke20039,(1-peek(20039)):goto40
  72. 72 c2=31:gosub107:print"l     [157][157][157][157]"peek(20040)"[157]";
  73. 73 getx$:if x$<chr$(49) or x$>chr$(56) then73
  74. 74 print"[157]"x$;:fort=1to2000:next
  75. 75 poke20040,val(x$):goto41
  76. 76 getx1$:if f1=0 then78
  77. 77 if x1$="l" or x1$="m" or x1$="n" orx1$="x" then80
  78. 78 if x1$="" thenreturn
  79. 79 if x1$<chr$(65) or x1$>chr$(72) then76
  80. 80 gosub 107:printx1$".[157]";:return
  81. 81 getx2$:if x2$="" thenreturn
  82. 82 if x2$<chr$(49) or x2$>chr$(56) then81
  83. 83 gosub107:printx2$;
  84. 84 return
  85. 85 print"          eingabefehler":y=3000:goto89
  86. 86 print"          matt in";x;"zuegen":y=5000:goto89
  87. 87 print"          illegaler zug":y=3000:goto89
  88. 88 print"          ich gebe auf":y=5000
  89. 89 fort=1toy:next:print"                            ":return
  90. 90 x1$="patt":goto92
  91. 91 x1$="matt"
  92. 92 c1=0:c2=16:gosub107:printx1$:fort=1to1000:next
  93. 93 getx$:ifx$=""then93
  94. 94 c1=0:c2=16:gosub107:print"    "
  95. 95 print"[158]":sys13393:goto37
  96. 96 ifpeek(ot)>18thenreturn
  97. 97 poke19950+peek(ot),peek(19997):poke19968+peek(ot),peek(19998)
  98. 98 pokeot,peek(ot)+1:return
  99. 99 x$="":c2=36:gosub107:print".[157]";
  100. 100 getx$
  101. 101 ifx$="d"thenx=52:goto106
  102. 102 ifx$="t"thenx=48:goto106
  103. 103 ifx$="s"thenx=44:goto106
  104. 104 ifx$="l"thenx=40:goto106
  105. 105 goto100
  106. 106 poke19999,x:printx$;:return
  107. 107 poke214,c1:poke211,c2:sys58640:return
  108. 108 print" n[146]: weiss     s[146]: bauer      l[146]: loeschen"
  109. 109 c1=23:c2=31:gosub107:print"   ..";
  110. 110 fa=0:se=1
  111. 111 getv$:ifv$=""then111
  112. 112 ifv$="l"then124
  113. 113 ifv$="n"thenfa=10-fa:gosub139:goto111
  114. 114 ifv$="s"then128
  115. 115 ifv$="x"then141
  116. 116 ifv$<chr$(65)orv$>chr$(72)then111
  117. 117 c1=23:c2=34:gosub107:printv$;
  118. 118 getv2$:ifv2$=""then118
  119. 119 ifv2$<chr$(49)orv2$>chr$(56)then118
  120. 120 c2=35:gosub107:printv2$;
  121. 121 z1=asc(v$)-44:z2=(asc(v2$)-48)*10-10
  122. 122 ifse=0andfa=10thense=-10
  123. 123 poke830+z1+z2,se+fa:v$="":goto127
  124. 124 fori1=20to90step10
  125. 125 fori2=1to8
  126. 126 pokesx+i1+i2,0:nexti2,i1
  127. 127 print"[158]":sys12528:print"":goto111
  128. 128 se=se+1:ifse=7thense=0
  129. 129 onse+1gosub132,133,134,135,136,137,138
  130. 130 print"";d$
  131. 131 goto111
  132. 132 d$="null    ":return
  133. 133 d$="bauer   ":return
  134. 134 d$="turm    ":return
  135. 135 d$="springer":return
  136. 136 d$="laeufer ":return
  137. 137 d$="dame    ":return
  138. 138 d$="koenig  ":return
  139. 139 iffa=0thenprint"weiss  ":return
  140. 140 print"schwarz":return
  141. 141 print"                                       ";
  142. 142 pokeot,40:poke20039,abs(sgn(fa-10)):goto41
  143. 143 fort1=1to2
  144. 144 pokesi+24,8:pokesi+5,25:pokesi+6,20:pokesi+1,16:pokesi,20:pokesi+4,17
  145. 145 fort2=0to200:next:pokesi+4,0:next:return
  146. 0 
  147.